home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / asm / XZN-CaT01_src.lha / Intro / Intro.s < prev    next >
Text File  |  1997-03-09  |  34KB  |  1,720 lines
  1.  
  2.     Section    codice,CODE
  3.  
  4.     incdir    "dh1:programs/asmone/modem/intro/"
  5.  
  6.     Include    "DaWorkBench.s"
  7.     include    "startup2.s"
  8.  
  9.         ;5432109876543210
  10. DMASET    EQU    %1000001110000000    ; copper e bitplane abilitati
  11.  
  12. WAITDISK    equ    10
  13.  
  14. START:
  15.     movem.l    d0-d7/a0-a6,-(SP)    ; setto la musica
  16.     lea    P61_data,a0    ; Indirizzo del modulo in a0
  17.     lea    $dff000,a6    ; Ricordiamoci il $dff000 in a6!
  18.     sub.l    a1,a1        ; I samples non sono a parte, mettiamo zero
  19.     sub.l    a2,a2        ; no samples -> modulo non compattato
  20.     jsr    P61_Init
  21.     movem.l    (SP)+,d0-d7/a0-a6
  22.  
  23.     move.l    BaseVbr(PC),A1
  24.     move.l    #MyInt6c,$6C(A1)
  25.     move.w    #DMASET,$96(a5)        ; DMACON - abilita bitplane e copper
  26.     move.w    #$e020,$9a(a5)        ; INTENA - Abilito Master and lev6
  27.  
  28.     move.l    #MEMPIC1,d0
  29.     lea    BPLPOINTERS,A1    
  30.     moveq    #4-1,D7
  31.  
  32. POINTB:
  33.     move.w    d0,6(a1)
  34.     swap    d0
  35.     move.w    d0,2(a1)
  36.     swap    d0
  37.     add.l    #$2800,d0
  38.     addq.w    #8,a1
  39.     dbra    d7,POINTB
  40.  
  41.     move.l    #COPPERLIST,$dff080
  42.     move.w    d0,$dff088
  43.  
  44.     clr.l    VBcounter
  45.  
  46. LOGOWBLANY1:
  47.     bsr.w    WBLAN
  48.  
  49.     bsr.w    MAINFADEINOUT
  50.  
  51.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  52.     beq.w    ESCI
  53.  
  54.     cmpi.l    #255,VBcounter
  55.     blo.s    LOGOWBLANY1
  56.  
  57.     clr.l    VBcounter
  58.  
  59. LOGOWBLANY3:
  60.     bsr.w    WBLAN
  61.  
  62.     addq.l    #1,cacca
  63.     cmpi.l    #3,cacca    ; fa stampare il testo ogni 3 fotogrammi
  64.     blo.s    LOGOWBLANY3    ; grazie al semiflag cacca
  65.     clr.l    cacca
  66.  
  67.     bsr.w    PRINTCARATTERE
  68.  
  69.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  70.     beq.w    ESCI
  71.  
  72.     cmpi.l    #120,VBcounter
  73.     blo.s    LOGOWBLANY3
  74.  
  75.     clr.l    VBcounter
  76.  
  77.  
  78.     ; parte dove schiaccia pics
  79.  
  80.  
  81. MOUSE:
  82.     bsr.w    WBLAN
  83.  
  84.     bsr.w    SCHIACCIA
  85.     bsr.w    MAINFADEINOUT
  86.     bsr.w    MAINFADEINOUT
  87.     bsr.w    MAINFADEINOUT
  88.     bsr.w    MAINFADEINOUT
  89.  
  90.     btst    #6,$bfe001    ; LMB premuto?
  91.     beq.w    ESCI        ; se no ripeti
  92.  
  93.     cmpi.l    #1,CAZZONE    ; cazzone e' un flag che viene ativato quando
  94.     blo.s    MOUSE        ; la pic e' stata schiacciata del tutto!
  95.  
  96.     clr.l    VBcounter
  97.  
  98.  
  99. WBLANY:
  100.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  101.     beq.w    ESCI
  102.  
  103.     cmpi.l    #50,VBcounter
  104.     blo.s    WBLANY
  105.  
  106.     clr.l    VBcounter
  107.  
  108.     lea     BPLVUOTO,a1
  109.     move.l    #VUOTO,d0
  110.  
  111.      move.w    d0,6(a1)
  112.      swap    d0
  113.      move.w    d0,2(a1)
  114.      swap    d0
  115.  
  116.     move.l    #COPVUOTO,$80(a5)
  117.     move.w    d0,$88(a5)
  118.  
  119. WBLANY1:
  120.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  121.     beq.w    ESCI
  122.  
  123.     cmpi.l    #5,VBcounter
  124.     blo.s    WBLANY1
  125.  
  126.     clr.l    VBcounter
  127.  
  128.  
  129.     ; Qui mostra il putto che poppa (e poppa anche la potta) :-)     
  130.  
  131.  
  132.     move.l    #MEMPIC2,d0
  133.     lea    BPLPOINTERS2,A1    
  134.     moveq    #4-1,D7
  135. CAZZO:
  136.      move.w    d0,6(a1)
  137.      swap    d0
  138.      move.w    d0,2(a1)
  139.      swap    d0
  140.     add.l    #$2800,d0
  141.     addq.w    #8,a1
  142.     dbra    d7,CAZZO
  143.     
  144.     move.l    #VUOTO,d0
  145.     lea    BPLPOINTERS3,A1    
  146.      move.w    d0,6(a1)
  147.      swap    d0
  148.      move.w    d0,2(a1)
  149.      swap    d0
  150.  
  151.     move.l    #COPPERLIST2,$dff080
  152.     move.w    d0,$dff088
  153.  
  154.     move.w    #0,$dff1fc        ; Disattiva l'AGA
  155.     move.w    #$c00,$dff106        ; Disattiva l'AGA
  156.  
  157. WBLANY2:
  158.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  159.     beq.w    ESCI
  160.  
  161.     cmpi.l    #120,VBcounter
  162.     blo.s    WBLANY2
  163.  
  164.     clr.l    VBcounter
  165.  
  166.  
  167.     ; Qui far fare l'apparizione del testo
  168.  
  169.     clr.l    CACCA
  170.     
  171.     jsr    PRINTATESTO
  172.  
  173. WBLANY3:
  174.     bsr.w    WBLAN
  175.  
  176.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  177.     beq.s    ESCI
  178.  
  179.     addq.l    #1,CACCA
  180.     cmpi.l    #5,CACCA
  181.     blo.s    WBLANY3        ; semiflag cacca
  182.     clr.l    CACCA
  183.  
  184.     lea    CSTART-2,a1
  185.     lea    CEND-2,a2
  186.     jsr    DOFADE
  187.  
  188.     cmpi.l    #85,VBcounter
  189.     blo.s    WBLANY3
  190.  
  191.     clr.l    VBcounter
  192.  
  193. WBLANY4:
  194.     bsr.w    WBLAN
  195.  
  196.     jsr    RIMBALZO
  197.  
  198.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  199.     bne.w    WBLANY4
  200.  
  201.     clr.l    VBcounter
  202.  
  203. ESCI:
  204.     lea    $dff000,a6    ; stoppo la musica
  205.     jsr    P61_End
  206.     rts            ; esci
  207.  
  208.  
  209. ******************************************************************************
  210. ;            ROUTINE CHE ASPETTA IL VBL
  211. ******************************************************************************
  212.  
  213. WBLAN:
  214.     move.l    $dff004,d0
  215.     and.l    #$0001ff00,d0
  216.     cmp.l    #$00012b00,d0
  217.     bne.s    WBLAN
  218. WBLAN1:
  219.     move.l    $dff004,d0
  220.     and.l    #$0001ff00,d0
  221.     cmp.l    #$00012b00,d0
  222.     beq.s    WBLAN1
  223.     rts
  224.  
  225.  
  226. ******************************************************************************
  227.             ; Interrupt level 3, VERTB...
  228. ******************************************************************************
  229.  
  230.     cnop    0,4
  231. MyInt6c:
  232.     BTST    #5,$DFF01F
  233.     beq.s    NoIntVertb
  234.     MOVEM.L    D0-D7/A0-A6,-(SP)
  235.     ST    FrameFlagCounter
  236.     addq.l    #1,VBcounter
  237.     MOVEM.L    (SP)+,D0-D7/A0-A6
  238. NoIntVertb:
  239.     BTST    #4,$DFF01F
  240.     beq.s    NoIntCoper
  241.     MOVEM.L    D0-D7/A0-A6,-(SP)
  242.     MOVEM.L    (SP)+,D0-D7/A0-A6
  243. NoIntCoper:
  244.     MOVE.W    #$70,$DFF09C
  245.     RTE
  246.  
  247. *****************************************************************************
  248.  
  249. FrameFlagCounter:
  250.     dc.w    0
  251.  
  252.  
  253. AspettaFrameFlag:
  254.     SF    FrameFlagCounter
  255. StoFlaNon:
  256.     TST.B    FrameFlagCounter
  257.     BEQ.B    StoFlaNon
  258.     RTS
  259.  
  260. AspettVBL:
  261.     cmp.b    #$40,$dff006
  262.     bne.s    AspettVBL
  263. AspettVBL2:
  264.     cmp.b    #$40,$dff006
  265.     beq.s    AspettVBL2
  266.     rts
  267.  
  268. *******************************************************************************
  269.  
  270.  
  271. VBcounter:
  272.     dc.l    0
  273.  
  274. CACCA:
  275.     dc.l    0
  276.  
  277. CAZZONE:
  278.     dc.l    0
  279. *******************************************************************************
  280. ;            ROUTINE DI FADE AGA
  281. *******************************************************************************
  282.  
  283. MAINFADEINOUT:
  284.     bsr.w    CALCOLAMETTICOL
  285.  
  286.     btst.b    #1,FLAGFADEINOUT
  287.     bne.s    FADEOUT
  288.  
  289. FADEIN:
  290.     addq.w    #1,MULTIPLIER
  291.     cmp.w    #255,MULTIPLIER
  292.     bne.s    NONFINITO
  293.     bchg.b    #1,FLAGFADEINOUT
  294.  
  295. FADEOUT:
  296.     subq.w    #1,MULTIPLIER
  297.     bne.w    NONFINITO
  298.     bchg.b    #1,FLAGFADEINOUT
  299.  
  300. NONFINITO:
  301.     rts
  302.  
  303. FLAGFADEINOUT:
  304.     dc.w    0
  305.  
  306. MULTIPLIER:
  307.     dc.w    0
  308.  
  309. TEMPORANEO:
  310.     dc.l    0
  311.  
  312. CALCOLAMETTICOL:
  313.     lea    TEMPORANEO(pc),a0
  314.     lea    LOGOCOLP0+2,a1
  315.     lea    LOGOCOLP0B+2,a2
  316.     lea    PALETTEPIC(pc),a3
  317.     moveq    #8-1,d7
  318.  
  319. CONVERTIPALETTEBANK:
  320.     moveq    #0,d0
  321.     moveq    #0,d2
  322.     moveq    #0,d3
  323.     moveq    #32-1,d6
  324.  
  325. DALONGAREGISTRI:
  326.     ;rosso    
  327.  
  328.     move.l    (a3),d4
  329.     andi.l    #%000011111111,d4
  330.     mulu.w    MULTIPLIER(pc),d4
  331.     asr.w    #8,d4
  332.     andi.l    #%000011111111,d4
  333.     move.l    d4,d5
  334.  
  335.     ;verde
  336.  
  337.     move.l    (a3),d4
  338.     andi.l    #%1111111100000000,d4
  339.     lsr.l    #8,d4
  340.     mulu.w    MULTIPLIER(pc),d4
  341.     asr.w    #8,d4
  342.     andi.l    #%0000000011111111,d4
  343.     lsl.l    #8,d4
  344.     or.l    d4,d5
  345.  
  346.     ;blu
  347.  
  348.     move.l    (a3)+,d4
  349.     andi.l    #%111111110000000000000000,d4
  350.     lsr.l    #8,d4
  351.     lsr.l    #8,d4
  352.     mulu.w    MULTIPLIER(pc),d4
  353.     asr.w    #8,d4
  354.     andi.l    #%0000000011111111,d4
  355.     lsl.l    #8,d4
  356.     lsl.l    #8,d4
  357.     or.l    d4,d5
  358.     move.l    d5,(a0)
  359.  
  360.     move.b    1(a0),(a2)
  361.     andi.b    #%00001111,(a2)
  362.     move.b    2(a0),d2
  363.     lsl.b    #4,d2
  364.     move.b    3(a0),d3
  365.     andi.b    #%00001111,d3
  366.     or.b    d2,d3
  367.     move.b    d3,1(a2)
  368.  
  369.     move.b    1(A0),d0
  370.     andi.b    #%11110000,d0
  371.     lsr.b    #4,d0
  372.     move.b    d0,(a1)
  373.     move.b    2(a0),d2
  374.     andi.b    #%11110000,d2
  375.     move.b    3(a0),d3
  376.     andi.b    #%11110000,d3
  377.     lsr.b    #4,d3
  378.     ori.b    d2,d3
  379.     move.b    d3,1(a1)
  380.     addq.w    #4,a1
  381.     addq.w    #4,a2
  382.     dbra    d6,DALONGAREGISTRI
  383.  
  384.     add.w    #(128+8),a1
  385.     add.w    #(128+8),a2
  386.  
  387.     dbra    d7,CONVERTIPALETTEBANK
  388.     rts
  389.  
  390. PALETTEPIC:
  391.     dc.l    $00000000,$00d6d6d6,$00202010,$00303010,$00304010,$00405020
  392.     dc.l    $00506020,$00608020,$00709030,$0080a030,$0090b030,$00a0c030
  393.     dc.l    $00b0d040,$00ffffff,$00909090,$00101010
  394.     cnop    0,8
  395.  
  396. ******************************************************************************
  397. ;            ROUTINE DI PRINT CARATTERE
  398. ******************************************************************************
  399.  
  400. PRINTCARATTERE:
  401.     move.l    PuntaTESTO(PC),A0 ; Indirizzo del testo da stampare in a0
  402.     moveq    #0,D2        ; Pulisci d2
  403.     move.b    (A0)+,D2    ; Prossimo carattere in d2
  404.     cmp.b    #$ff,d2        ; Segnale di fine testo? ($FF)
  405.     beq.s    FineTesto    ; Se si, esci senza stampare
  406.  
  407. NonFineRiga:
  408.     sub.b    #$20,D2
  409.     mulu.w    #8,D2
  410.     move.l    D2,A2
  411.     add.l    #FONT,A2
  412.     move.l    PuntaBITPLANE(PC),A3
  413.  
  414.     move.b    (A2)+,(A3)
  415.     move.b    (A2)+,40(A3)
  416.     move.b    (A2)+,40*2(A3)
  417.     move.b    (A2)+,40*3(A3)
  418.     move.b    (A2)+,40*4(A3)
  419.     move.b    (A2)+,40*5(A3)
  420.     move.b    (A2)+,40*6(A3)
  421.     move.b    (A2)+,40*7(A3)
  422.  
  423.     addq.l    #1,PuntaBitplane ; avanziamo di 8 bit (PROSSIMO CARATTERE)
  424.     addq.l    #1,PuntaTesto    ; prossimo carattere da stampare
  425.  
  426. FINETESTO:
  427.     rts
  428.  
  429. PUNTATESTO:
  430.     dc.l    TESTO
  431.  
  432. PUNTABITPLANE:
  433.     dc.l    MEMPIC1+(40*200)
  434.  
  435. TESTO:
  436.     dc.b    "                PRESENTS                ",$FF
  437.     even
  438.  
  439.  
  440. *****************************************************************************
  441. ;        ROUTINE CHE SCHIACCIA LA PICTURE
  442. *****************************************************************************
  443.  
  444. MODJMP    equ    512*2    ; la velocita` aumenta con multipli di 512
  445.  
  446. SCHIACCIA:
  447.     lea    BplxMod+6,a0
  448.     lea    modtab(pc),a1
  449.  
  450.     move.l    offmod(pc),d0
  451.     cmpi.l    #65536,d0    ; abbiamo finito? (lunghezza tab=64k)
  452.     blt.s    stringi
  453.     move.l    #1,Cazzone
  454.     rts
  455. stringi:
  456.     bsr.s    setmod
  457.     addi.l    #MODJMP,offmod    ; salta i moduli gia` fatti
  458.     rts
  459.  
  460. ; Input: d0=offset for modtab
  461. ;     a0=destination cop address
  462. ;     a1=source tab address
  463. setmod:
  464.     lea    (a1,d0.l),a1
  465.     move.w    #$ff-$2c,d2
  466. loopsetmod1:
  467.     move.w    (a1)+,d1    ; give me next tab value...
  468.     move.w    d1,(a0)        ; ...e schioffalo in cop
  469.     addq.w    #4,a0
  470.     move.w    d1,(a0)        ; ...un'altra volta
  471.     addq.w    #8,a0
  472.     dbra    d2,loopsetmod1
  473.     addq.w    #4,a0
  474.     moveq    #$2c,d2
  475. loopsetmod2:
  476.     move.w    (a1)+,d1    ; give me next tab value...
  477.     move.w    d1,(a0)        ; ...e schioffalo in cop
  478.     addq.w    #4,a0
  479.     move.w    d1,(a0)        ; ...un'altra volta
  480.     addq.w    #8,a0
  481.     dbra    d2,loopsetmod2
  482.     rts
  483.     
  484. offmod    dc.l    0
  485.  
  486. modtab    incbin    "modtab.bin"
  487.  
  488. *******************************************************************************
  489. ;            ROUTINE DI PRINTING TESTO
  490. *******************************************************************************
  491.  
  492. PRINTATESTO:
  493.     LEA    SCROLLTESTO(PC),A0
  494.     LEA    VUOTO,A3
  495.     MOVEQ    #66-1,D3
  496. .PRINTRIGA:
  497.     MOVEQ    #40-1,D0
  498. .PRINTCHAR2:
  499.     MOVEQ    #0,D2
  500.     MOVE.B    (A0)+,D2
  501.     SUB.B    #$20,D2
  502.     MULU.W    #8,D2
  503.     MOVE.L    D2,A2
  504.     ADD.L    #FONT,A2
  505.     MOVE.B    (A2)+,(A3)
  506.     MOVE.B    (A2)+,40(A3)
  507.     MOVE.B    (A2)+,40*2(A3)
  508.     MOVE.B    (A2)+,40*3(A3)
  509.     MOVE.B    (A2)+,40*4(A3)
  510.     MOVE.B    (A2)+,40*5(A3)
  511.     MOVE.B    (A2)+,40*6(A3)
  512.     MOVE.B    (A2)+,40*7(A3)
  513.  
  514.     ADDQ.w    #1,A3
  515.     DBRA    D0,.PRINTCHAR2
  516.     ADD.W    #40*7,A3
  517.     DBRA    D3,.PRINTRIGA
  518.     RTS
  519.  
  520. SCROLLTESTO:
  521.     dc.b    "                                        "
  522.     dc.b    "                                        "
  523.     dc.b    "                                        "
  524.     dc.b    "                 X-ZONE                 "
  525.     dc.b    "                                        "
  526.     dc.b    "                PRESENTS                "
  527.     dc.b    "                                        "
  528.     dc.b    "          COOL A TUNE ISSUE ONE         "
  529.     dc.b    "                                        "
  530.     dc.b    "                                        "
  531.     dc.b    "                                        "
  532.     dc.b    "                                        "
  533.     dc.b    "             INTRO CREDITS:             "
  534.     dc.b    "                                        "
  535.     dc.b    "     SIMPLE CODE..............MODEM     "
  536.     dc.b    "     OLD GFX..................LANCH     "
  537.     dc.b    "     FAST MUSIC...........CORROSION     "
  538.     dc.b    "                                        "
  539.     dc.b    "                                        "
  540.     dc.b    "                                        "
  541.     dc.b    "                                        "
  542.     dc.b    "                                        "
  543.     dc.b    "                                        "
  544.     dc.b    "  X-ZONE SENDS GREETINGS TO:            "
  545.     dc.b    "                                        "
  546.     dc.b    " * VAJRAYANA * DEGENERATION * RAM JAM * "
  547.     dc.b    " * CYDONIA * BALANCE * MORBID VISIONS * "
  548.     dc.b    " * BIOSYNTHETIC DESIGN * X-ZONE FANS!!! "
  549.     dc.b    "                                        "
  550.     dc.b    "                                        "
  551.     dc.b    "                                        "
  552.     dc.b    "                                        "
  553.  
  554.     ; pagina 2
  555.  
  556.     dc.b    "                                        "
  557.     dc.b    "                                        "
  558.     dc.b    "                                        "
  559.     dc.b    "                                        "
  560.     dc.b    "                                        "
  561.     dc.b    "                                        "
  562.     dc.b    " TO CONTACT US, WRITE TO:               "
  563.     dc.b    "                                        "
  564.     dc.b    "            MODEM OF X-ZONE             "
  565.     dc.b    "             PAOLO D'URSO               "
  566.     dc.b    "     VIA CACCIATORI DELLE ALPI 45       "
  567.     dc.b    "       06049 SPOLETO  PG  ITALY         "
  568.     dc.b    "                                        "
  569.     dc.b    "                                        "
  570.     dc.b    "                                        "
  571.     dc.b    "                                        "
  572.     dc.b    " OR SIMPLY CALL ONE OF OUR BBS:         "
  573.     dc.b    "                                        "
  574.     dc.b    "        PLASTIC DREAM    -WHQ-          "       
  575.     dc.b    "            +39 41/5732014              "
  576.     dc.b    "                                        "
  577.     dc.b    "        ALIEN ATTACK     -IHQ-          "
  578.     dc.b    "            +39 744/422108              "
  579.     dc.b    "                                        "
  580.     dc.b    "         METAL MOON      -IDS-          "
  581.     dc.b    "            +39 11/9138501              "
  582.     dc.b    "                                        "
  583.     dc.b    "                                        "
  584.     dc.b    "                                        "
  585.     dc.b    "                                        "
  586.     dc.b    "                                        "
  587.     dc.b    "                                        "
  588.  
  589.     even
  590.  
  591. *******************************************************************************
  592. ;            ROUTINE DI FADE SEMIINCROCIATO
  593. *******************************************************************************
  594.  
  595. DOFADE:
  596.     cmp.w    #17,FASEDELFADE
  597.     beq.s    FADEFINITO
  598.     lea    COPCOLORS+2,a0
  599.     move.w    #32,d6
  600.     bsr.w    FADE2
  601.  
  602. FADEFINITO:
  603.     rts
  604.  
  605. ; Uses d0-d6/a0-a2
  606.  
  607. FADE2:
  608. F2MAIN:
  609.     addq.w    #4,a0
  610.     addq.w    #2,a1
  611.     addq.w    #2,a2
  612.     move.w    (a0),d0
  613.     move.w    (a2),d1
  614.     cmp.w    d0,d1
  615.     beq.w    PROSSIMOCOLORE
  616.     move.w    FASEDELFADE(pc),d4
  617.     clr.w    COLOREFINALE
  618.  
  619.     ;blu
  620.  
  621.     move.w    (a1),d0
  622.     move.w    (a2),d2
  623.     and.l    #$00f,d0
  624.     and.l    #$00f,d2
  625.     cmp.w    d2,d0
  626.     bhi.b    SOTTRAID2
  627.     beq.b    SOTTRAID2
  628.     sub.w    d0,d2
  629.     bra.b    SOTTFATTO
  630.  
  631. SOTTRAID2:
  632.     sub.w    d2,d0
  633.     bra.b    SOTTFATTO2
  634.  
  635. SOTTFATTO:
  636.     move.w    d2,d0
  637.  
  638. SOTTFATTO2:
  639.     moveq    #16,d1
  640.     bsr.w    dodivu
  641.     and.w    #$00f,d1
  642.     move.w    (a1),d0
  643.     move.w    (a2),d2
  644.     and.w    #$00f,d0
  645.     and.w    #$00f,d2
  646.     cmp.w    d0,d2
  647.     bhi.b    SOMMAD1
  648.     beq.b    OKBLU
  649.     sub.w    d1,d0
  650.     bra.b    OKBLU
  651.     
  652. SOMMAD1:
  653.     add.w    d1,d0
  654.  
  655. OKBLU:
  656.     move.w    d0,COLOREFINALE
  657.  
  658.     ;verde
  659.  
  660.     move.w    (a1),d0
  661.     move.w    (a2),d2
  662.     and.l    #$0f0,d0
  663.     and.l    #$0f0,d2
  664.     cmp.w    d2,d0
  665.     bhi.b    SOTTRAID2V
  666.     beq.b    SOTTRAID2V
  667.     sub.w    d0,d2
  668.     bra.b    SOTTFATTOV
  669.  
  670. SOTTRAID2V:
  671.     sub.w    d2,d0
  672.     bra.b    SOTTFATTO2V
  673.  
  674. SOTTFATTOV:
  675.     move.w    d2,d0
  676.  
  677. SOTTFATTO2V:
  678.     moveq    #16,d1
  679.     bsr.w    DODIVU
  680.     and.w    #$0f0,d1
  681.     move.w    (a1),d0
  682.     move.w    (a2),d2
  683.     and.w    #$0f0,d0
  684.     and.w    #$0f0,d2
  685.     cmp.w    d0,d2
  686.     bhi.b    SOMMAD1V
  687.     beq.b    OKVERDE
  688.     sub.w    d1,d0
  689.     bra.b    OKVERDE
  690.  
  691. SOMMAD1V:
  692.     add.w    d1,d0
  693.  
  694. OKVERDE:
  695.     or.w    d0,COLOREFINALE
  696.  
  697.     ;rosso
  698.  
  699.     move.w    (a1),d0
  700.     move.w    (a2),d2
  701.     and.l    #$f00,d0
  702.     and.l    #$f00,d2
  703.     cmp.w    d2,d0
  704.     bhi.b    SOTTRAID2R
  705.     beq.b    SOTTRAID2R
  706.     sub.w    d0,d2
  707.     bra.b    SOTTFATTOR
  708.  
  709. SOTTRAID2R:
  710.     sub.w    d2,d0
  711.     bra.b    SOTTFATTO2R
  712.  
  713. SOTTFATTOR:
  714.     move.w    d2,d0
  715.  
  716. SOTTFATTO2R:
  717.     moveq    #16,d1
  718.     bsr.w    DODIVU
  719.     and.w    #$f00,d1
  720.     move.w    (a1),d0
  721.     move.w    (a2),d2
  722.     and.w    #$f00,d0
  723.     and.w    #$f00,d2
  724.     cmp.w    d0,d2
  725.     bhi.b    SOMMAD1R
  726.     beq.b    OKROSSO
  727.     sub.w    d1,d0
  728.     bra.b    OKROSSO
  729.  
  730. SOMMAD1R:
  731.     add.w    d1,d0
  732.  
  733. OKROSSO:
  734.     or.w    d0,COLOREFINALE
  735.     move.w    COLOREFINALE(pc),(a0)
  736.  
  737. PROSSIMOCOLORE:
  738.     dbra    d6,F2MAIN
  739.     addq.w    #1,FASEDELFADE
  740.  
  741. NOCRS:
  742.     rts
  743.  
  744. DODIVU:
  745.     divu.w    d1,d0
  746.     move.l    d0,d1
  747.     swap    d1
  748.     move.l    #$31000,d2
  749.     moveq    #0,d3
  750.     move.w    d1,d3
  751.     mulu.w    d3,d2
  752.     move.w    d2,d1
  753.  
  754.     and.l    #$ffff,d1
  755.     mulu.w    d4,d1
  756.     swap    d1
  757.     mulu.w    d4,d0
  758.     add.w    d0,d1
  759.     and.l    #$ffff,d1
  760.     rts
  761.  
  762. FASEDELFADE:
  763.     dc.w    0
  764.  
  765. COLOREFINALE:
  766.     dc.w    0
  767.  
  768. CSTART:
  769.     dc.w    $6ad,$237,$347
  770.     dc.w    $650,$358,$469,$479
  771.     dc.w    $58b,$236,$860,$a80
  772.     dc.w    $ca0,$ec0,$fff,$225
  773.     dc.w    $000,$6ad,$237,$347
  774.     dc.w    $650,$358,$469,$479
  775.     dc.w    $58b,$236,$860,$a80
  776.     dc.w    $ca0,$ec0,$fff,$225
  777. CEND:
  778.     dc.w    $6ad,$237,$347
  779.     dc.w    $650,$358,$469,$479
  780.     dc.w    $58b,$236,$860,$a80
  781.     dc.w    $ca0,$ec0,$fff,$225
  782.     dc.w    $fff,$fff,$fff,$fff
  783.     dc.w    $fff,$fff,$fff,$fff
  784.     dc.w    $fff,$fff,$fff,$fff
  785.     dc.w    $fff,$fff,$fff,$fff
  786.  
  787. *******************************************************************************
  788. ;            ROUTINE DI RIMBALZO TESTO
  789. *******************************************************************************
  790.  
  791. RIMBALZO:
  792.     lea    BPLPOINTERS3,a1
  793.     move.w    2(a1),d0
  794.     swap    d0
  795.     move.w    6(a1),d0
  796.     addq.l    #8,RIMBALZOPUNTA
  797.     move.l    RIMBALZOPUNTA(PC),a0
  798.     cmp.l    #FINERIMBALZO-4,a0
  799.     bne.s    NOSTART
  800.     move.l    #RIMBALZOTABELLA-4,RIMBALZOPUNTA
  801.  
  802. NOSTART:
  803.     move.l    (a0),d1
  804.     sub.l    d1,d0
  805.     lea    BPLPOINTERS3,a1
  806.  
  807.     move.w    d0,6(a1)
  808.     swap    d0
  809.     move.w    d0,2(a1)
  810.     swap    d0
  811.     rts
  812.  
  813. RIMBALZOPUNTA:
  814.     dc.l    RIMBALZOTABELLA-4
  815.  
  816. RIMBALZOTABELLA:
  817.     dc.l    0,0,0,0,0,0,0,0,0,0
  818.     dc.l    0,0,0,0,0,0,0,0,0,0
  819.     dc.l    0,0,0,0,0,0,0,0,0,0
  820.     dc.l    0,0,0,0,0,0,0,0,0,0
  821.     dc.l    0,0,0,0,0,0,0,0,0,0
  822.     dc.l    0,0,0,0,0,0,0,0,0,0
  823.     dc.l    0,0,0,0,0,0,0,0,0,0
  824.     dc.l    0,0,0,0,0,0,0,0,0,0
  825.     dc.l    0,0,0,0,0,0,0,0,0,0
  826.     dc.l    0,0,0,0,0,0,0,0,0,0
  827.     dc.l    0,0,0,0,0,0,0,0,0,0
  828.     dc.l    0,0,0,0,0,0,0,0,0,0
  829.     dc.l    0,0,0,0,0,0,0,0,0,0
  830.     dc.l    0,0,0,0,0,0,0,0,0,0
  831.     dc.l    0,0,0,0,0,0,0,0,0,0
  832.     dc.l    0,0,0,0,0,0,0,0,0,0
  833.     dc.l    0,0,0,0,0,0,0,0,0,0
  834.     dc.l    0,0,0,0,0,0,0,0,0,0
  835.     dc.l    0,0,0,0,0,0,0,0,0,0
  836.     dc.l    0,0,0,0,0,0,0,0,0,0
  837.     dc.l    0,0,0,0,0,0,0,0,0,0
  838.     dc.l    0,0,0,0,0,0,0,0,0,0
  839.     dc.l    0,0,0,0,0,0,0,0,0,0
  840.     dc.l    0,0,0,0,0,0,0,0,0,0
  841.     dc.l    0,0,0,0,0,0,0,0,0,0
  842.     dc.l    0,0,0,0,0,0,0,0,0,0
  843.     dc.l    0,0,0,0,0,0,0,0,0,0
  844.     dc.l    0,0,0,0,0,0,0,0,0,0
  845.     dc.l    0,0,0,0,0,0,0,0,0,0
  846.     dc.l    0,0,0,0,0,0,0,0,0,0
  847.  
  848.     dc.l    -40,-40,-40,-40,-40,-40,-40,-40,-40
  849.     dc.l    -40,-40,-2*40,-2*40
  850.     dc.l    -2*40,-2*40,-2*40,-2*40,-2*40
  851.     dc.l    -3*40,-3*40,-3*40,-3*40,-3*40            ; acceleriamo
  852.     dc.l    -3*40,-3*40,-3*40,-3*40,-3*40
  853.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40
  854.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40
  855.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40
  856.  
  857.     dc.l    -5*40
  858.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  859.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  860.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  861.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  862.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  863.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  864.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  865.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  866.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  867.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  868.     dc.l    -5*40,-5*40,-5*40,-5*40,-5*40
  869.  
  870.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40
  871.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40
  872.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40
  873.     dc.l    -3*40,-3*40,-3*40,-3*40,-3*40
  874.     dc.l    -3*40,-3*40,-3*40,-3*40,-3*40
  875.     dc.l    -2*40,-2*40,-2*40,-2*40,-2*40            ; deceleriamo
  876.     dc.l    -2*40,-2*40,-40,-40
  877.     dc.l    -40,-40,-40,-40,-40,-40,-40,-40,-40,0,0,0,0,0    ; in cima
  878.  
  879.     dc.l    0,0,0,0,0,0,0,0,0,0
  880.     dc.l    0,0,0,0,0,0,0,0,0,0
  881.     dc.l    0,0,0,0,0,0,0,0,0,0
  882.     dc.l    0,0,0,0,0,0,0,0,0,0
  883.     dc.l    0,0,0,0,0,0,0,0,0,0
  884.     dc.l    0,0,0,0,0,0,0,0,0,0
  885.     dc.l    0,0,0,0,0,0,0,0,0,0
  886.     dc.l    0,0,0,0,0,0,0,0,0,0
  887.     dc.l    0,0,0,0,0,0,0,0,0,0
  888.     dc.l    0,0,0,0,0,0,0,0,0,0
  889.     dc.l    0,0,0,0,0,0,0,0,0,0
  890.     dc.l    0,0,0,0,0,0,0,0,0,0
  891.     dc.l    0,0,0,0,0,0,0,0,0,0
  892.     dc.l    0,0,0,0,0,0,0,0,0,0
  893.     dc.l    0,0,0,0,0,0,0,0,0,0
  894.     dc.l    0,0,0,0,0,0,0,0,0,0
  895.     dc.l    0,0,0,0,0,0,0,0,0,0
  896.     dc.l    0,0,0,0,0,0,0,0,0,0
  897.     dc.l    0,0,0,0,0,0,0,0,0,0
  898.     dc.l    0,0,0,0,0,0,0,0,0,0
  899.     dc.l    0,0,0,0,0,0,0,0,0,0
  900.     dc.l    0,0,0,0,0,0,0,0,0,0
  901.     dc.l    0,0,0,0,0,0,0,0,0,0
  902.     dc.l    0,0,0,0,0,0,0,0,0,0
  903.     dc.l    0,0,0,0,0,0,0,0,0,0
  904.     dc.l    0,0,0,0,0,0,0,0,0,0
  905.     dc.l    0,0,0,0,0,0,0,0,0,0
  906.     dc.l    0,0,0,0,0,0,0,0,0,0
  907.     dc.l    0,0,0,0,0,0,0,0,0,0
  908.     dc.l    0,0,0,0,0,0,0,0,0,0
  909.  
  910.     dc.l    0,0,40,40,40,40,40,40,40,40,40             ; in cima
  911.     dc.l    40,40,2*40,2*40
  912.     dc.l    2*40,2*40,2*40,2*40,2*40            ; acceleriamo
  913.     dc.l    3*40,3*40,3*40,3*40,3*40
  914.     dc.l    3*40,3*40,3*40,3*40,3*40
  915.     dc.l    4*40,4*40,4*40,4*40,4*40
  916.     dc.l    4*40,4*40,4*40,4*40,4*40
  917.     dc.l    4*40,4*40,4*40,4*40,4*40
  918.  
  919.     dc.l    5*40
  920.     dc.l    5*40,5*40,5*40,5*40,5*40
  921.     dc.l    5*40,5*40,5*40,5*40,5*40
  922.     dc.l    5*40,5*40,5*40,5*40,5*40
  923.     dc.l    5*40,5*40,5*40,5*40,5*40
  924.     dc.l    5*40,5*40,5*40,5*40,5*40
  925.     dc.l    5*40,5*40,5*40,5*40,5*40
  926.     dc.l    5*40,5*40,5*40,5*40,5*40
  927.     dc.l    5*40,5*40,5*40,5*40,5*40
  928.     dc.l    5*40,5*40,5*40,5*40,5*40
  929.     dc.l    5*40,5*40,5*40,5*40,5*40
  930.     dc.l    5*40,5*40,5*40,5*40,5*40
  931.  
  932.     dc.l    4*40,4*40,4*40,4*40,4*40
  933.     dc.l    4*40,4*40,4*40,4*40,4*40
  934.     dc.l    4*40,4*40,4*40,4*40,4*40
  935.     dc.l    3*40,3*40,3*40,3*40,3*40
  936.     dc.l    3*40,3*40,3*40,3*40,3*40
  937.     dc.l    2*40,2*40,2*40,2*40,2*40            ; deceleriamo
  938.     dc.l    2*40,2*40,40,40
  939.     dc.l    40,40,40,40,40,40,40,40,40,0,0,0,0,0,0,0    ; in fondo
  940.  
  941. FINERIMBALZO:
  942.     dc.l    0
  943.  
  944. *******************************************************************************
  945. ;                ROUTINE MUSICALE
  946. *******************************************************************************
  947.  
  948. fade  = 0
  949. jump = 0
  950. system = 1
  951. CIA = 1
  952. exec = 1
  953. opt020 = 1
  954. use = $940C
  955.  
  956.     include    "play.s"
  957.  
  958.     Section    modulozzo,DATA_C
  959.  
  960. P61_DATA:
  961.     incbin    "P61.corrosion"
  962.  
  963. ;=============================================================================
  964.  
  965.     SECTION    grafica,DATA_C
  966.  
  967. COPPERLIST:
  968.     dc.w    $8E,$2c81
  969.     dc.w    $90,$2cc1
  970.     dc.w    $92,$38
  971.     dc.w    $94,$d0
  972.     dc.w    $102,0
  973.     dc.w    $104,0
  974.     dc.w    $1fc,0
  975.  
  976.     dc.w    $100,%0100001000000000
  977.     
  978. BPLPOINTERS:
  979.     dc.w $e0,0,$e2,0
  980.     dc.w $e4,0,$e6,0
  981.     dc.w $e8,0,$ea,0
  982.     dc.w $ec,0,$ee,0
  983.  
  984. COLORCOP:
  985.     dc.w $0180,$0,$0182,$0,$0184,$0,$0186,$0
  986.     dc.w $0188,$0,$018a,$0,$018c,$0,$018e,$0
  987.     dc.w $0190,$0,$0192,$0,$0194,$0,$0196,$0
  988.     dc.w $0198,$0,$019a,$0,$019c,$0,$019e,$0
  989.  
  990.     DC.W    $106,$c00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE ALTI
  991. LOGOCOLP0:
  992.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  993.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  994.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  995.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  996.  
  997.     DC.W    $106,$e00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE BASSI
  998. LOGOCOLP0B:
  999.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1000.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1001.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1002.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1003.  
  1004.     DC.W    $106,$2C00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE ALTI
  1005.  
  1006.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1007.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1008.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1009.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1010.  
  1011.     DC.W    $106,$2E00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE BASSI
  1012.  
  1013.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1014.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1015.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1016.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1017.  
  1018.     DC.W    $106,$4C00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE ALTI
  1019.  
  1020.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1021.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1022.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1023.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1024.  
  1025.     DC.W    $106,$4E00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE BASSI
  1026.  
  1027.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1028.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1029.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1030.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1031.  
  1032.     DC.W    $106,$6C00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE ALTI
  1033.  
  1034.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1035.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1036.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1037.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1038.  
  1039.     DC.W    $106,$6E00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE BASSI
  1040.  
  1041.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1042.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1043.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1044.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1045.  
  1046.     DC.W    $106,$8C00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE ALTI
  1047.  
  1048.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1049.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1050.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1051.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1052.  
  1053.     DC.W    $106,$8E00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE BASSI
  1054.  
  1055.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1056.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1057.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1058.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1059.  
  1060.     DC.W    $106,$AC00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE ALTI
  1061.  
  1062.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1063.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1064.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1065.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1066.  
  1067.     DC.W    $106,$AE00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE BASSI
  1068.  
  1069.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1070.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1071.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1072.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1073.  
  1074.     DC.W    $106,$CC00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE ALTI
  1075.  
  1076.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1077.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1078.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1079.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1080.  
  1081.     DC.W    $106,$CE00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE BASSI
  1082.  
  1083.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1084.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1085.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1086.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1087.  
  1088.     DC.W    $106,$EC00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE ALTI
  1089.  
  1090.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1091.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1092.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1093.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1094.  
  1095.     DC.W    $106,$EE00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE BASSI
  1096.  
  1097.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1098.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1099.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1100.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1101.  
  1102. BplxMod:
  1103. A set $2c07
  1104.     REPT    $ff-$2c+1
  1105.     dc.w    A,$fffe
  1106. A set A+$0100
  1107.     dc.w    $108,0        ; Bpl1Mod - modulo pl. dispari
  1108.     dc.w    $10a,0        ; Bpl2Mod - modulo pl. pari
  1109.     ENDR
  1110.     dc.w    $ffdf,$fffe
  1111. A set $0007
  1112.     REPT    $2c+1
  1113.     dc.w    A,$fffe
  1114. A set A+$0100
  1115.     dc.w    $108,0        ; Bpl1Mod - modulo pl. dispari
  1116.     dc.w    $10a,0        ; Bpl2Mod - modulo pl. pari
  1117.     ENDR
  1118.  
  1119.     dc.w    $ffff,$fffe
  1120.  
  1121. COPVUOTO:
  1122.  
  1123. BPLVUOTO:
  1124.     dc.w $e0,$0,$e2,$0
  1125.  
  1126.     dc.w    $100,%0001001000000000
  1127.     dc.w    $8e,$2c81    ; DiwStrt
  1128.     dc.w    $90,$2cc1    ; DiwStop
  1129.     dc.w    $102,0
  1130.     dc.w    $104,0
  1131.     dc.w    $108,0        ; Bpl1Mod
  1132.     dc.w    $10a,0        ; Bpl2Mod
  1133.  
  1134.     DC.W    $106,$c00
  1135.     dc.w    $180,$fff,$182,$fff
  1136.     DC.W    $106,$e00
  1137.     dc.w    $180,$fff,$182,$fff
  1138.  
  1139.     dc.w    $ffff,$fffe
  1140.  
  1141. COPPERLIST2:
  1142.     dc.w    $8E,$2c81
  1143.     dc.w    $90,$2cc1
  1144.     dc.w    $92,$38
  1145.     dc.w    $94,$d0
  1146.     dc.w    $102,0
  1147.     dc.w    $104,0
  1148.     dc.w    $108,0        ; Bpl1Mod
  1149.     dc.w    $10a,0        ; Bpl2Mod
  1150.  
  1151.     dc.w    $100,%0101001000000000
  1152.     
  1153. BPLPOINTERS2:
  1154.     dc.w $e0,0,$e2,0
  1155.     dc.w $e4,0,$e6,0
  1156.     dc.w $e8,0,$ea,0
  1157.     dc.w $ec,0,$ee,0
  1158. BPLPOINTERS3:
  1159.     dc.w $f0,0,$f2,0
  1160.  
  1161. COPCOLORS:
  1162.     dc.w    $180,$000,$182,$6ad,$184,$237,$186,$347
  1163.     dc.w    $188,$650,$18a,$358,$18c,$469,$18e,$479
  1164.     dc.w    $190,$58b,$192,$236,$194,$860,$196,$a80
  1165.     dc.w    $198,$ca0,$19a,$ec0,$19c,$fff,$19e,$225
  1166.     dc.w    $1a0,$000,$1a2,$6ad,$1a4,$237,$1a6,$347
  1167.     dc.w    $1a8,$650,$1aa,$358,$1ac,$469,$1ae,$479
  1168.     dc.w    $1b0,$58b,$1b2,$236,$1b4,$860,$1b6,$a80
  1169.     dc.w    $1b8,$ca0,$1ba,$ec0,$1bc,$fff,$1be,$225
  1170.  
  1171.     dc.w    $ffff,$fffe
  1172.  
  1173.     SECTION    pics,DATA_C
  1174. MEMPIC1:
  1175.     incbin    "logo.raw"
  1176. MEMPIC2:
  1177.     incbin    "back.raw"
  1178.  
  1179.  
  1180.     Section    FontiDelClitunno,DATA
  1181. FONT:
  1182. ; ' '
  1183.     dc.b    %00000000
  1184.     dc.b    %00000000
  1185.     dc.b    %00000000
  1186.     dc.b    %00000000
  1187.     dc.b    %00000000
  1188.     dc.b    %00000000
  1189.     dc.b    %00000000
  1190.     dc.b    %00000000
  1191. ; '!'
  1192.     dc.b    %00011000
  1193.     dc.b    %00111100
  1194.     dc.b    %00111100
  1195.     dc.b    %00011000
  1196.     dc.b    %00011000
  1197.     dc.b    %00000000
  1198.     dc.b    %00011000
  1199.     dc.b    %00000000
  1200. ; '"'
  1201.     dc.b    %00000000
  1202.     dc.b    %00000000
  1203.     dc.b    %00000000
  1204.     dc.b    %00000000
  1205.     dc.b    %00000000
  1206.     dc.b    %00000000
  1207.     dc.b    %00000000
  1208.     dc.b    %00000000
  1209. ; '#'
  1210.     dc.b    %00000000
  1211.     dc.b    %00000000
  1212.     dc.b    %00000000
  1213.     dc.b    %00000000
  1214.     dc.b    %00000000
  1215.     dc.b    %00000000
  1216.     dc.b    %00000000
  1217.     dc.b    %00000000
  1218. ; '$'
  1219.     dc.b    %00000000
  1220.     dc.b    %00000000
  1221.     dc.b    %00000000
  1222.     dc.b    %00000000
  1223.     dc.b    %00000000
  1224.     dc.b    %00000000
  1225.     dc.b    %00000000
  1226.     dc.b    %00000000
  1227. ; '%'
  1228.     dc.b    %00000000
  1229.     dc.b    %00000000
  1230.     dc.b    %00000000
  1231.     dc.b    %00000000
  1232.     dc.b    %00000000
  1233.     dc.b    %00000000
  1234.     dc.b    %00000000
  1235.     dc.b    %00000000
  1236. ; '&'
  1237.     dc.b    %00000000
  1238.     dc.b    %00000000
  1239.     dc.b    %00000000
  1240.     dc.b    %00000000
  1241.     dc.b    %00000000
  1242.     dc.b    %00000000
  1243.     dc.b    %00000000
  1244.     dc.b    %00000000
  1245. ; "'"
  1246.     dc.b    %00001100
  1247.     dc.b    %00001100
  1248.     dc.b    %00011100
  1249.     dc.b    %00000000
  1250.     dc.b    %00000000
  1251.     dc.b    %00000000
  1252.     dc.b    %00000000
  1253.     dc.b    %00000000
  1254. ; "("
  1255.     dc.b    %00000000
  1256.     dc.b    %00000000
  1257.     dc.b    %00000000
  1258.     dc.b    %00000000
  1259.     dc.b    %00000000
  1260.     dc.b    %00000000
  1261.     dc.b    %00000000
  1262.     dc.b    %00000000
  1263. ; ")"
  1264.     dc.b    %00000000
  1265.     dc.b    %00000000
  1266.     dc.b    %00000000
  1267.     dc.b    %00000000
  1268.     dc.b    %00000000
  1269.     dc.b    %00000000
  1270.     dc.b    %00000000
  1271.     dc.b    %00000000
  1272. ; "*"
  1273.     dc.b    %01100011
  1274.     dc.b    %00111110
  1275.     dc.b    %00110110
  1276.     dc.b    %01100011
  1277.     dc.b    %00110110
  1278.     dc.b    %00111110
  1279.     dc.b    %01100011
  1280.     dc.b    %00000000
  1281. ; '+'
  1282.     dc.b    %00000000
  1283.     dc.b    %00011000
  1284.     dc.b    %00011000
  1285.     dc.b    %01111110
  1286.     dc.b    %00011000
  1287.     dc.b    %00011000
  1288.     dc.b    %00000000
  1289.     dc.b    %00000000
  1290. ; ","
  1291.     dc.b    %00000000
  1292.     dc.b    %00000000
  1293.     dc.b    %00000000
  1294.     dc.b    %00011000
  1295.     dc.b    %00011000
  1296.     dc.b    %00011000
  1297.     dc.b    %01110000
  1298.     dc.b    %00000000
  1299. ; "-"
  1300.     dc.b    %00000000
  1301.     dc.b    %00000000
  1302.     dc.b    %00000000
  1303.     dc.b    %00111110
  1304.     dc.b    %00111110
  1305.     dc.b    %00000000
  1306.     dc.b    %00000000
  1307.     dc.b    %00000000
  1308. ; "."
  1309.     dc.b    %00000000
  1310.     dc.b    %00000000
  1311.     dc.b    %00000000
  1312.     dc.b    %00000000
  1313.     dc.b    %00000000
  1314.     dc.b    %00011000
  1315.     dc.b    %00111000
  1316.     dc.b    %00000000
  1317. ; "/"
  1318.     dc.b    %00000011
  1319.     dc.b    %00000011
  1320.     dc.b    %00000110
  1321.     dc.b    %00001100
  1322.     dc.b    %00011000
  1323.     dc.b    %00110000
  1324.     dc.b    %11100000
  1325.     dc.b    %00000000
  1326. ; '0'
  1327.     dc.b    %00111110
  1328.     dc.b    %01100111
  1329.     dc.b    %01101011
  1330.     dc.b    %01101011
  1331.     dc.b    %01110011
  1332.     dc.b    %01100011
  1333.     dc.b    %00111110
  1334.     dc.b    %00000000
  1335. ; '1'
  1336.     dc.b    %00011000
  1337.     dc.b    %01111000
  1338.     dc.b    %00011000
  1339.     dc.b    %00011000
  1340.     dc.b    %00011000
  1341.     dc.b    %00011000
  1342.     dc.b    %00011000
  1343.     dc.b    %00000000
  1344. ; '2'
  1345.     dc.b    %00111110
  1346.     dc.b    %01000110
  1347.     dc.b    %00011100
  1348.     dc.b    %01100000
  1349.     dc.b    %01100000
  1350.     dc.b    %01100010
  1351.     dc.b    %01111110
  1352.     dc.b    %00000000
  1353. ; '3'
  1354.     dc.b    %01111100
  1355.     dc.b    %01000110
  1356.     dc.b    %00000011
  1357.     dc.b    %00001110
  1358.     dc.b    %00000011
  1359.     dc.b    %01000110
  1360.     dc.b    %01111100
  1361.     dc.b    %00000000
  1362. ; '4'
  1363.     dc.b    %00000011
  1364.     dc.b    %00000111
  1365.     dc.b    %00001101
  1366.     dc.b    %00011001
  1367.     dc.b    %00110001
  1368.     dc.b    %01111111
  1369.     dc.b    %00000011
  1370.     dc.b    %00000000
  1371. ; '5'
  1372.     dc.b    %01111111
  1373.     dc.b    %01000000
  1374.     dc.b    %01011110
  1375.     dc.b    %01100011
  1376.     dc.b    %00000011
  1377.     dc.b    %00000011
  1378.     dc.b    %01111110
  1379.     dc.b    %00000000
  1380. ; '6'
  1381.     dc.b    %00111110
  1382.     dc.b    %01110000
  1383.     dc.b    %01100000
  1384.     dc.b    %01101110
  1385.     dc.b    %01110011
  1386.     dc.b    %01100011
  1387.     dc.b    %00111110
  1388.     dc.b    %00000000
  1389. ; '7'
  1390.     dc.b    %01111111
  1391.     dc.b    %01000011
  1392.     dc.b    %00000110
  1393.     dc.b    %00111111
  1394.     dc.b    %00011000
  1395.     dc.b    %00110000
  1396.     dc.b    %01111000
  1397.     dc.b    %00000000
  1398. ; '8'
  1399.     dc.b    %00111110
  1400.     dc.b    %01100011
  1401.     dc.b    %01000001
  1402.     dc.b    %00111110
  1403.     dc.b    %01000001
  1404.     dc.b    %01100011
  1405.     dc.b    %00111110
  1406.     dc.b    %00000000
  1407. ; '9'
  1408.     dc.b    %00111110
  1409.     dc.b    %01100011
  1410.     dc.b    %01100011
  1411.     dc.b    %00111101
  1412.     dc.b    %00000001
  1413.     dc.b    %01000111
  1414.     dc.b    %01111110
  1415.     dc.b    %00000000
  1416. ; ':'
  1417.     dc.b    %00000000
  1418.     dc.b    %00011000
  1419.     dc.b    %00010000
  1420.     dc.b    %00000000
  1421.     dc.b    %00000000
  1422.     dc.b    %00011000
  1423.     dc.b    %00010000
  1424.     dc.b    %00000000
  1425. ; ';'
  1426.     dc.b    %00000000
  1427.     dc.b    %00000000
  1428.     dc.b    %00000000
  1429.     dc.b    %00000000
  1430.     dc.b    %00000000
  1431.     dc.b    %00000000
  1432.     dc.b    %00000000
  1433.     dc.b    %00000000
  1434. ; "<"
  1435.     dc.b    %00000000
  1436.     dc.b    %00000000
  1437.     dc.b    %00000000
  1438.     dc.b    %00000000
  1439.     dc.b    %00000000
  1440.     dc.b    %00000000
  1441.     dc.b    %00000000
  1442.     dc.b    %00000000
  1443. ; "="
  1444.     dc.b    %00000000
  1445.     dc.b    %00000000
  1446.     dc.b    %00000000
  1447.     dc.b    %00000000
  1448.     dc.b    %00000000
  1449.     dc.b    %00000000
  1450.     dc.b    %00000000
  1451.     dc.b    %00000000
  1452. ; ">"
  1453.     dc.b    %00000000
  1454.     dc.b    %00000000
  1455.     dc.b    %00000000
  1456.     dc.b    %00000000
  1457.     dc.b    %00000000
  1458.     dc.b    %00000000
  1459.     dc.b    %00000000
  1460.     dc.b    %00000000
  1461. ; '?'
  1462.     dc.b    %00000000
  1463.     dc.b    %00000000
  1464.     dc.b    %00000000
  1465.     dc.b    %00000000
  1466.     dc.b    %00000000
  1467.     dc.b    %00000000
  1468.     dc.b    %00000000
  1469.     dc.b    %00000000
  1470. ; "@"
  1471.     dc.b    %00000000
  1472.     dc.b    %00000000
  1473.     dc.b    %00000000
  1474.     dc.b    %00000000
  1475.     dc.b    %00000000
  1476.     dc.b    %00000000
  1477.     dc.b    %00000000
  1478.     dc.b    %00000000
  1479. ; "A"
  1480.     dc.b    %00111110
  1481.     dc.b    %01000001
  1482.     dc.b    %01111111
  1483.     dc.b    %01100011
  1484.     dc.b    %01000001
  1485.     dc.b    %01000001
  1486.     dc.b    %01100011
  1487.     dc.b    %00000000
  1488. ; "B"
  1489.     dc.b    %01111100
  1490.     dc.b    %01100110
  1491.     dc.b    %01100010
  1492.     dc.b    %01111100
  1493.     dc.b    %01100011
  1494.     dc.b    %01100111
  1495.     dc.b    %01111110
  1496.     dc.b    %00000000
  1497. ; 'C'
  1498.     dc.b    %00111110
  1499.     dc.b    %01110001
  1500.     dc.b    %01100000
  1501.     dc.b    %01100000
  1502.     dc.b    %01100000
  1503.     dc.b    %01110001
  1504.     dc.b    %00111110
  1505.     dc.b    %00000000
  1506. ; 'D'
  1507.     dc.b    %01111000
  1508.     dc.b    %01100100
  1509.     dc.b    %01100010
  1510.     dc.b    %01100010
  1511.     dc.b    %01100011
  1512.     dc.b    %01100011
  1513.     dc.b    %01111110
  1514.     dc.b    %00000000
  1515. ; 'E'
  1516.     dc.b    %00111110
  1517.     dc.b    %01100001
  1518.     dc.b    %01111110
  1519.     dc.b    %01100000
  1520.     dc.b    %01100000
  1521.     dc.b    %01100001
  1522.     dc.b    %00111111
  1523.     dc.b    %00000000
  1524. ; 'F'
  1525.     dc.b    %00111111
  1526.     dc.b    %01100000
  1527.     dc.b    %01111000
  1528.     dc.b    %01100000
  1529.     dc.b    %01100000
  1530.     dc.b    %01100000
  1531.     dc.b    %01110000
  1532.     dc.b    %00000000
  1533. ; 'G'
  1534.     dc.b    %00011111
  1535.     dc.b    %01110000
  1536.     dc.b    %01100000
  1537.     dc.b    %01100110
  1538.     dc.b    %01100011
  1539.     dc.b    %01100011
  1540.     dc.b    %00111110
  1541.     dc.b    %00000000
  1542. ; 'H'
  1543.     dc.b    %01100011
  1544.     dc.b    %01100011
  1545.     dc.b    %01100111
  1546.     dc.b    %01111111
  1547.     dc.b    %01110011
  1548.     dc.b    %01100011
  1549.     dc.b    %01100011
  1550.     dc.b    %00000000
  1551. ; 'I'
  1552.     dc.b    %00011100
  1553.     dc.b    %00001100
  1554.     dc.b    %00001100
  1555.     dc.b    %00001100
  1556.     dc.b    %00001100
  1557.     dc.b    %00001100
  1558.     dc.b    %00001110
  1559.     dc.b    %00000000
  1560. ; 'J'
  1561.     dc.b    %00000111
  1562.     dc.b    %00000011
  1563.     dc.b    %00000011
  1564.     dc.b    %00000011
  1565.     dc.b    %01110011
  1566.     dc.b    %01110011
  1567.     dc.b    %00111110
  1568.     dc.b    %00000000
  1569. ; 'K'
  1570.     dc.b    %01110011
  1571.     dc.b    %01100110
  1572.     dc.b    %01101100
  1573.     dc.b    %01111000
  1574.     dc.b    %01101100
  1575.     dc.b    %01100110
  1576.     dc.b    %01110011
  1577.     dc.b    %00000000
  1578. ; 'L'
  1579.     dc.b    %01110000
  1580.     dc.b    %01100000
  1581.     dc.b    %01100000
  1582.     dc.b    %01100000
  1583.     dc.b    %01100000
  1584.     dc.b    %01110001
  1585.     dc.b    %00111111
  1586.     dc.b    %00000000
  1587. ; 'M'
  1588.     dc.b    %00100010
  1589.     dc.b    %01110111
  1590.     dc.b    %01101011
  1591.     dc.b    %01100011
  1592.     dc.b    %01100011
  1593.     dc.b    %01100011
  1594.     dc.b    %01100011
  1595.     dc.b    %00000000
  1596. ; 'N'
  1597.     dc.b    %01100111
  1598.     dc.b    %01110011
  1599.     dc.b    %01111111
  1600.     dc.b    %01100111
  1601.     dc.b    %01100011
  1602.     dc.b    %01100011
  1603.     dc.b    %01110011
  1604.     dc.b    %00000000
  1605. ; 'O'
  1606.     dc.b    %00111110
  1607.     dc.b    %01100011
  1608.     dc.b    %01100011
  1609.     dc.b    %01100011
  1610.     dc.b    %01111111
  1611.     dc.b    %01111111
  1612.     dc.b    %00111110
  1613.     dc.b    %00000000
  1614. ; 'P'
  1615.     dc.b    %01111110
  1616.     dc.b    %01100011
  1617.     dc.b    %01111110
  1618.     dc.b    %01100000
  1619.     dc.b    %01100000
  1620.     dc.b    %01100000
  1621.     dc.b    %01110000
  1622.     dc.b    %00000000
  1623. ; 'Q'
  1624.     dc.b    %00111110
  1625.     dc.b    %01110011
  1626.     dc.b    %01100011
  1627.     dc.b    %01100011
  1628.     dc.b    %01100011
  1629.     dc.b    %01101110
  1630.     dc.b    %00111011
  1631.     dc.b    %00000000
  1632. ; 'R'
  1633.     dc.b    %01111110
  1634.     dc.b    %01100011
  1635.     dc.b    %01100011
  1636.     dc.b    %01111110
  1637.     dc.b    %01110000
  1638.     dc.b    %01101100
  1639.     dc.b    %01100111
  1640.     dc.b    %00000000
  1641. ; 'S'
  1642.     dc.b    %00111111
  1643.     dc.b    %01100000
  1644.     dc.b    %01111110
  1645.     dc.b    %00000011
  1646.     dc.b    %00000011
  1647.     dc.b    %01000011
  1648.     dc.b    %01111110
  1649.     dc.b    %00000000
  1650. ; 'T'
  1651.     dc.b    %01111110
  1652.     dc.b    %00011000
  1653.     dc.b    %00011000
  1654.     dc.b    %00011000
  1655.     dc.b    %00011000
  1656.     dc.b    %00011000
  1657.     dc.b    %00111000
  1658.     dc.b    %00000000
  1659. ; 'U'
  1660.     dc.b    %01110011
  1661.     dc.b    %01100011
  1662.     dc.b    %01100011
  1663.     dc.b    %01100011
  1664.     dc.b    %01100011
  1665.     dc.b    %01110111
  1666.     dc.b    %00111110
  1667.     dc.b    %00000000
  1668. ; 'V'
  1669.     dc.b    %01110011
  1670.     dc.b    %01100011
  1671.     dc.b    %01100011
  1672.     dc.b    %01100011
  1673.     dc.b    %01100011
  1674.     dc.b    %00110110
  1675.     dc.b    %00011100
  1676.     dc.b    %00000000
  1677. ; 'W'
  1678.     dc.b    %01110011
  1679.     dc.b    %01100011
  1680.     dc.b    %01100011
  1681.     dc.b    %01100011
  1682.     dc.b    %01101011
  1683.     dc.b    %01110111
  1684.     dc.b    %00100010
  1685.     dc.b    %00000000
  1686. ; 'X'
  1687.     dc.b    %01100011
  1688.     dc.b    %01100011
  1689.     dc.b    %00111110
  1690.     dc.b    %00001000
  1691.     dc.b    %00111110
  1692.     dc.b    %01100011
  1693.     dc.b    %01100011
  1694.     dc.b    %00000000
  1695. ; 'Y'
  1696.     dc.b    %01110011
  1697.     dc.b    %01100011
  1698.     dc.b    %01100011
  1699.     dc.b    %00111111
  1700.     dc.b    %00000011
  1701.     dc.b    %01000110
  1702.     dc.b    %01111100
  1703.     dc.b    %00000000
  1704. ; 'Z'
  1705.     dc.b    %01111111
  1706.     dc.b    %01000011
  1707.     dc.b    %00000110
  1708.     dc.b    %00111000
  1709.     dc.b    %01100000
  1710.     dc.b    %01100000
  1711.     dc.b    %01111111
  1712.     dc.b    %00000000
  1713.  
  1714.     Section    AreaVuota,BSS_C
  1715. VUOTO:
  1716.     ds.b    40*512
  1717.     ds.b    1000
  1718.  
  1719.     END
  1720.